home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t3.d64 / spelling game.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  181 lines
  1. 1 REM (null)
  2. 2 POKE53280,14:POKE53281,6
  3. 5 LP=0
  4. 10 PRINTCHR$(142):PRINTCHR$(8):PRINTCHR$(154):PRINTCHR$(147)
  5. 20 POKE53281,6:POKE53280,14
  6. 30 PRINT"SPELLING LEARNING "
  7. 40 PRINT"GAME!!!!"
  8. 50 POKE54296,15
  9. 60 POKE54277,9
  10. 70 POKE54276,65
  11. 75 POKE54275,0:POKE54274,255
  12. 80 FORS=1TOC:NEXT
  13. 85 POKE54273,0:POKE54272,0
  14. 87 POKE54276,0
  15. 90 IFC=751THEN150
  16. 100 READA,B,C
  17. 105 POKE54273,A:POKE54272,B
  18. 110 GOTO60
  19. 120 DATA 20,100,375,20,100,375,20,100,250,22,227,125,25,177,375,25,177,250
  20. 125 DATA 22,227,125,25,177,250,27,56,125,30,141,750
  21. 130 DATA 40,200,125,40,200,125,40,200,125,30,141,125,30,141,125,30,141,125
  22. 135 DATA 25,177,125,25,177,125,25,177,125,20,100,125,20,100,125,20,100,125
  23. 140 DATA 30,141,250,27,56,125,25,177,250,22,227,125
  24. 145 DATA 20,100,751
  25. 150 POKE54296,0:POKE53281,5:POKE53280,13:PRINTCHR$(153)
  26. 155 PRINTCHR$(147)
  27. 160 PRINT"HELLO,THERE."
  28. 165 PRINT"WELCOME TO THE WORLD OF SPELLING!"
  29. 170 PRINT"(TYPE IN YOUR NAME,THEN HIT RETURN[146])"
  30. 175 INPUT"[145][145]WHAT'S YOUR NAME";A$
  31. 180 PRINT""A$",DO YOU WANT INSTRUCTIONS?"
  32. 185 PRINT"PUSH EITHER Y[146] FOR YES,OR N[146] FOR NO."
  33. 190 GETS$:IFS$<>"Y"ANDS$<>"N"THEN190
  34. 195 IFS$="N"THEN305
  35. 200 PRINT"[147]OKAY,"A$",IT IS NICE TO MEET"
  36. 205 PRINT"YOU."
  37. 210 PRINT"I AM GOING TO FLASH A WORD ON THE"
  38. 215 PRINT"SCREEN.THEN,I WILL ERASE THE WORD,AND"
  39. 220 PRINT"ASK YOU TO SPELL IT.SO,YOU WILL TYPE IN  THE WORD,THEN HIT RETURN[146]"
  40. 225 PRINT"I WILL KEEP TRACK OF HOW MANY WORDS"
  41. 230 PRINT"YOU SPELL CORRECTLY."
  42. 235 PRINT"IF YOU SPELL THE WORD CORRECTLY,I WILL"
  43. 240 PRINT"TELL YOU YOU'RE RIGHT BY PUTTING THE"
  44. 245 PRINT"WORD RIGHT[146] ON THE SCREEN.I WILL HOLD"
  45. 250 PRINT"IT FOR A BIT,THEN GIVE YOU ANOTHER"
  46. 255 PRINT"WORD."
  47. 260 PRINT"IF YOU MISSPELL THE WORD,I WILL SHOW"
  48. 265 PRINT"YOU THE CORRECT SPELLING OF THE WORD,"
  49. 270 PRINT"HOLD IT,THEN GIVE YOU ANOTHER WORD."
  50. 275 PRINT"PUSH F1[146] TO CONTINUE.(ONE OF THE GREY      KEYS)
  51. 280 [161]D$:[139]D$[179][177][199](133)[167]280
  52. 285 [153]"LOADTHERE WILL BE TEN WORDS IN ALL."
  53. 290 [153]"THE WORDS WILL BE PICKED AT RANDOM."
  54. 295 [153]"IF YOU GET 9 OR 10 WORDS RIGHT,THERE "
  55. 300 [153]"WILL BE A GAME FOR YOU TO PLAY!"
  56. 305 [153]"WHEN YOU WANT TO START,PUSH F1WAIT"
  57. 310 [161]W$:[139]W$[179][177][199](133)[167]310
  58. 311 [133]"ENTER SPEED(1-10)";SP
  59. 312 K[178]SP[172]100
  60. 315 [134]C$(150)
  61. 320 [129]Q[178]1[164]130:[135]C$(Q):[130]Q
  62. 325 [129]E[178]1[164]10
  63. 330 Y[178][181](1[170][187](1)[172]260)
  64. 332 [139]Y[177]130[167]Y[178]Y[171]130
  65. 335 [153]"LOAD";C$(Y)
  66. 340 [129]R[178]1[164]K:[130]R
  67. 345 [133]"LOADNOW,SPELL THE WORD:";Z$
  68. 350 [139]Z$[178]C$(Y)[167]360
  69. 355 [153]"SORRY.THE CORRECT SPELLING IS:";C$(Y)
  70. 356 [129]F[178]1[164]1000:[130]F
  71. 357 [137]365
  72. 360 [141]500
  73. 365 [130]E
  74. 370 [153]"LOAD"A$",YOU GOT"X"OUT OF 10 WORDS RIGHT."
  75. 375 [139]X[177][178]9[167]400
  76. 380 [153]"SORRY,BUT THERE IS NO GAME THIS TIME!"
  77. 385 [153]"DO YOU WANT TO PLAY AGAIN?(Y/N)"
  78. 390 [161]O$:[139]O$[179][177]"Y"[175]O$[179][177]"N"[167]390
  79. 395 [139]O$[178][199](89)[167][138]
  80. 396 [153]"LOADRUN"
  81. 397 [153]"":[128]
  82. 400 [137]550
  83. 500 X[178]X[170]1
  84. 505 [153]"RIGHT!!"
  85. 510 [129]F[178]1[164]700:[130]F
  86. 515 [142]
  87. 550 [153]"LOADCONGRATULATIONS!,"A$",YOU MADE IT TO  THE   GAME!!"
  88. 555 [153]"IN THIS GAME,I WILL DISPLAY A BOX"
  89. 560 [153]"WHICH WILL CONSIST OF 4 SMALLER BOXES."
  90. 565 [153]"ONE BY ONE,I WILL COLOUR IN ONE OF THE"
  91. 570 [153]"BOXES.A TOTAL OF 4 WILL BE COLOURED,BUT"
  92. 575 [153]"ONE AT A TIME.WHEN I FINISH COLOURING"
  93. 580 [153]"THEM,YOU WILL TELL ME WHICH ONES I"
  94. 585 [153]"COLOURED BY PRESSING THE FUNCTION KEYS."
  95. 590 [153]"F1WAIT IS FOR THE TOP BOX,F3WAIT IS FOR"
  96. 595 [153]"THE SECOND BOX,F5WAIT IS FOR THE THIRD"
  97. 600 [153]"BOX,AND F7WAIT IS FOR THE BOTTOM BOX."
  98. 605 [153]"YOU WILL UNDERSTAND IT BETTER AS WE GO"
  99. 610 [153]"ALONG."
  100. 615 [153]"PRESS F1WAIT TO BEGIN."
  101. 620 [161]R$:[139]R$[179][177][199](133)[167]620
  102. 630 [153][199](147):[153][199](8):[153][199](150)
  103. 635 [151]53281,2:[151]53280,10
  104. 640 [153]"     WAIT"
  105. 645 [153]" WAIT    WAIT  F1 "
  106. 650 [153]"     WAIT
  107. 655 PRINT" [146]    [146]  F3 "
  108. 660 PRINT"     [146]"
  109. 665 PRINT" [146]    [146]  F5 "
  110. 670 PRINT"     [146]
  111. 675 [153]" WAIT    WAIT  F7 "
  112. 680 [153]"     WAIT
  113. 682 PRINT"ONE MOMENT,PLEASE."
  114. 685 FORH=1TO4
  115. 690 L=INT(1+RND(1)*4)
  116. 700 J(H)=L
  117. 705 NEXTH
  118. 710 FORU=1TO4
  119. 715 IFJ(U)=1THENN$(U)=CHR$(133)
  120. 720 IFJ(U)=2THENN$(U)=CHR$(134)
  121. 725 IFJ(U)=3THENN$(U)=CHR$(135)
  122. 730 IFJ(U)=4THENN$(U)=CHR$(136)
  123. 735 NEXTU
  124. 740 FORM=1TO500:NEXTM
  125. 745 PRINT"[145]                  "
  126. 747 PRINTCHR$(5)
  127. 750 FORW=1TO4
  128. 755 IFN$(W)=CHR$(133)THENPRINT"   [146]"
  129. 760 IFN$(W)=CHR$(134)THENPRINT"   [146]"
  130. 765 IFN$(W)=CHR$(135)THENPRINT"   [146]"
  131. 770 IFN$(W)=CHR$(136)THENPRINT"   [146]"
  132. 772 PRINTCHR$(10)
  133. 775 FORT=1TO250:NEXTT
  134. 780 PRINT"   "
  135. 785 PRINT"   "
  136. 790 PRINT"   "
  137. 792 PRINT"   "
  138. 793 FORSE=1TO200:NEXTSE
  139. 794 NEXTW
  140. 796 GOTO900
  141. 800 DATA MATH,FUN,SPELLING,BOOK,PLUG,TAPE,DIAL,PHONE,SONGS,CODE,COLOUR,STOP
  142. 805 DATA PLAY,RECORD,DATA,TERMS,BOX,BUS,JOYSTICK,CHAIR,TABLE,DRAW,PICTURE
  143. 810 DATA CRAYON,PEN,PENCIL,PILLOW,BED,PAINT,PASTEL,LEVEL,STAIRS,CARPET
  144. 815 DATA FLOOR,SPORTS,BASEBALL,HOCKEY,FOOTBALL,SUN,MOON,TENNIS,HELLO
  145. 820 DATA GOOD,BAD,FUNNY,CURIOUS,GREAT,TERRIBLE,WIRES,HOUSE,HOME,PATTERN
  146. 825 DATA HORSE,GALLOP,TROT,COUCH,MOUSE,MOUTH,POUCH,POCKET,JEANS,PANTS
  147. 830 DATA CLOTHES,SUIT,TIE,JACKET,TIRE,WHEEL,CAR,ENGINE,SEAT,BELT,OPEN,CLOSE
  148. 835 DATA HUT,MOVE,SPACE,PLANT,VIOLET,EARTH,MACHINE,FILE,UNDER,TOP,SIDE,BEHIND
  149. 840 DATA FRONT,BACK,BLUE,GREEN,RED,BLACK,BEIGE,WHITE,YELLOW,PURPLE,KITE
  150. 845 DATA PADDLE,DOG,PET,FISH,CAT,BIRD,PARROT,PEANUT,TODAY,BYE,BY,BUY,STORE
  151. 850 DATA SHOP,CENTRE,PLAZA,MONEY,CHOCOLATE,CANDY,FREEZE,FOOD,MERRY,MARRY
  152. 855 DATA WHO,WHAT,WHEN,WHY,WHERE,HOW,MAGIC,TRICKS,TABLE,CARDS
  153. 900 FORRE=1TO4
  154. 905 GETQ$
  155. 906 IFQ$<>CHR$(133)ANDQ$<>CHR$(134)ANDQ$<>CHR$(135)ANDQ$<>CHR$(136)THEN905
  156. 910 IFQ$=N$(RE)THENLP=LP+1
  157. 915 NEXTRE
  158. 917 PRINT"THE ORDER WAS:"
  159. 918 FORLO=1TO4
  160. 919 IFN$(LO)=CHR$(133)THENPRINT"";"F1"
  161. 920 IFN$(LO)=CHR$(134)THENPRINT"";"F3"
  162. 921 IFN$(LO)=CHR$(135)THENPRINT"";"F5"
  163. 922 IFN$(LO)=CHR$(136)THENPRINT"";"F7"
  164. 923 NEXTLO
  165. 924 FORYOU=1TO2500:NEXTYOU
  166. 926 POKE53281,6:POKE53280,14:PRINTCHR$(154)
  167. 930 PRINT"[147]WELL,"A$",AS YOU SAW,YOU GOT "
  168. 935 PRINTLP"OUT OF A POSSIBLE 4 POINTS IN THIS    GAME."
  169. 937 IFLP=4THENY$="AMAZING!"
  170. 938 IFLP=3THENY$="PRETTY GOOD!"
  171. 940 IFLP=2THENY$="AVERAGE!"
  172. 943 IFLP=1THENY$="WELL,NOT GREAT!"
  173. 944 PRINTA$",I'D SAY YOU DID ";Y$
  174. 945 PRINT"THANK YOU FOR PLAYING!"
  175. 950 PRINT"PLAY AGAIN?"
  176. 955 GETR$:IFR$<>"Y"ANDR$<>"N"THEN955
  177. 960 IFR$="Y"THENRUN
  178. 965 PRINT"BYE,BYE!!"
  179. 970 PRINT"[147]RUN"
  180. 975 PRINT"":END
  181.